home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / jump start (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines
  1. 10 rem     intro to jump
  2. 20 print"[147]":poke53281,0:poke53280,5:printchr$(14)
  3. 30 c$="**** [202][213][205][208] ****":gosub10000:print""
  4. 40 c$="written by":gosub10000:print:print
  5. 50 c$="[158][193]ndrew [211]. [208]akerski":gosub10000
  6. 55 c$="[156]60 [200]olly [210]oad":gosub10000
  7. 65 c$="[195]oatesville, [208][193]  19320":gosub10000
  8. 66 gosub1000
  9. 100 print"[147]  [217]ou are now in an underground ":print
  10. 110 print"complex filled with treasure and deadly":print
  11. 120 print"mutant bugs.  [195]an you escape??":print
  12. 130 print"  [212]he main control is a joystick in ":print
  13. 140 print"[208][207][210][212] 2.  [208]ressing the button makes your":print
  14. 150 print"animated man jump into the air.":print
  15. 160 print"  [201]n an emergency, press [198]7 to freeze a":print
  16. 170 print"bug, but he revives in a few moments ":print
  17. 180 print"and comes after you twice as fast.":print:gosub1000
  18. 190 print"[147]  [212]his game has 'doors' that ":print
  19. 200 print"magically open only after the player ":print
  20. 210 print"has taken some action.  ":print:print
  21. 220 print"  [208]ressing the '[211]' key stops the game ":print
  22. 230 print"and exits to [194][193][211][201][195] ([206]ot to [204][207][193][196][211][212][193][210]).":print
  23. 240 print"[203]eys '1' and '2' change the on screen":print
  24. 250 print"colors if you wish.":gosub1000
  25. 300 goto63000
  26. 1000 poke783,peek(783)and254
  27. 1010 poke781,24:poke782,13:sys65520:print"<press a key>"
  28. 1020 poke198,0:wait198,1:geta$:return
  29. 9999 end
  30. 10000 rem   centering routine
  31. 10010 t=20-len(c$)/2
  32. 10020 printtab(t)c$
  33. 10030 return
  34. 63000 print"[147]load"chr$(34)"jump"chr$(34)",8,1":print"sys32768"
  35. 63010 poke198,0:poke631,13:poke632,13:poke198,2:end
  36.